"
This anchor stores the actual interval object which is set during initialization.
"
Class {
	#name : 'ReIntervalSourceAnchor',
	#superclass : 'ReSourceAnchor',
	#instVars : [
		'interval'
	],
	#category : 'Renraku-SourceAnchors',
	#package : 'Renraku',
	#tag : 'SourceAnchors'
}

{ #category : 'instance creation' }
ReIntervalSourceAnchor class >> entity: anEntity interval: anInterval [

	^ self basicNew
		initializeEnitity: anEntity
		interval: anInterval;
		yourself
]

{ #category : 'initialization' }
ReIntervalSourceAnchor >> initializeEnitity: anEntiy interval: anInterval [

	self initializeEnitity: anEntiy.
	interval := anInterval
]

{ #category : 'accessing' }
ReIntervalSourceAnchor >> interval [

	^ interval
]

{ #category : 'testing' }
ReIntervalSourceAnchor >> providesInterval [

	^ true
]
